#!/usr/bin/perl
# $Id: ansiclear.pl,v 1.1 2003/12/20 13:03:52 sby Exp $

if (@ARGV == ())
{
  print "Usage: $0 [FILE]\n";
  exit;
}

open(FILE, "< $ARGV[0]") or die "can't open FILE";

while (<FILE>)
{
  $_ =~ s/\[.*?m//g;

  print $_;
}

